MacFormat 1997 February/macformat-047.iso/Demos/Picasso Interactive Demo/Data/dico.Dxr/00001_Script Maître.ls

Text File | 1996-12-04 | 4.6 KB | 113 lines

on startMovie
  global g_dico_detect_letter, g_dico_detect_old_letter, g_dico_detect_old_mot, g_dico_cast_letter_lo, g_dico_cast_letter_hi, g_dico_sprite_letter, g_dico_sprite_old_letter, g_dico_sprite_mot, g_dico_cast_mot_lo, g_dico_cast_mot_hi, g_detect_mot, g_detect_old_mot, g_dico_sprite_def, g_dico_cast_def, g_dico_current_letter, g_dico_current_mot, g_dico_xfile, g_dico_detect_mot, g_dico_carte_liste, g_auto_init, g_call_param, g_dico_context, g_tempo, g_visite
  set g_dico_carte_liste to [["A03", "F"], ["A09", "F"], ["B02", "E"], ["B04", "P"], ["B06", "F"], ["C01", "F"], ["C03", "F"], ["C05", "A", 99, 336], ["C06", "P"], ["C08", "A", 175, 71], ["C10", "E"], ["D03", "F"], ["D04", "A", 40, 286], ["E03", "A", 40, 157], ["F02", "A", 40, 126], ["F03", "A", 40, 319], ["G03", "E"], ["G04", "P"], ["H01", "E"], ["J02", "A", 39, 390], ["J03", "A", 31, 7], ["J04", "F"], ["L01", "P"], ["L05", "A", 91, 73], ["M01", "E"], ["M02", "E"], ["M03", "A", 129, 5], ["M04", "A", 40, 238], ["M06", "A", 100, 258], ["M10", "P"], ["M11", "F"], ["O02", "A", 40, 190], ["P01", "A", 100, 354], ["P02", "F"], ["P03", "A", 99, 211], ["R05", "F"], ["S06", "F"], ["V01", "F"], ["V02", "F"]]
  set g_dico_letter to 0
  set g_dico_detect_old_letter to -1
  set g_dico_current_letter to -1
  set g_dico_cast_letter_lo to 22
  set g_dico_cast_letter_hi to 50
  set g_dico_sprite_letter to 7
  set g_dico_detect_old_mot to -1
  set g_dico_cast_mot_lo to the number of member "A01ML.RTF"
  set g_dico_cast_mot_hi to 78 + 15
  set g_dico_cast_def to 5
  set g_dico_sprite_def to 45
  set g_dico_sprite_mot to 33
  set g_dico_detect_mot to -1
  set g_auto_init to 0
  set g_visite to 0
  if (g_call_param <> -1) and (length(g_call_param) <> 0) and (listp(g_call_param) = 0) then
    set g_dico_detect_letter to charToNum(chars(g_call_param, 1, 1)) - 65
    set g_dico_letter to g_dico_detect_letter
    set g_dico_current_letter to g_dico_detect_letter
    set g_detect_mot to value(chars(g_call_param, 2, 3)) - 1
    set g_dico_mot to g_detect_mot
    set g_dico_current_mot to g_detect_mot
    set g_dico_detect_mot to g_detect_mot
    set g_auto_init to 1
  end if
  if listp(g_call_param) = 1 then
    set g_visite to 1
    set mot to getAt(g_call_param, 1)
    set g_tempo to getAt(g_call_param, 3)
    set g_dico_detect_letter to charToNum(chars(mot, 1, 1)) - 65
    set g_dico_letter to g_dico_detect_letter
    set g_dico_current_letter to g_dico_detect_letter
    set g_detect_mot to value(chars(mot, 2, 3)) - 1
    set g_dico_mot to g_detect_mot
    set g_dico_current_mot to g_detect_mot
    set g_dico_detect_mot to g_detect_mot
    set g_auto_init to 1
  end if
  put "dico g_call_param =", g_call_param
  put "dico g_dico_context =", g_dico_context
end

on HiLetter num, state
  global g_dico_sprite_letter, g_dico_cast_letter_hi
  if num <> -1 then
    if state = 1 then
      puppetSprite(g_dico_sprite_letter + num, 1)
      set the castNum of sprite (g_dico_sprite_letter + num) to g_dico_cast_letter_hi + num
    else
      puppetSprite(g_dico_sprite_letter + num, 0)
    end if
  end if
end

on HiMot num, state
  global g_dico_cast_mot_hi, g_dico_cast_mot_lo, g_dico_sprite_mot
  if num <> -1 then
    if state = 1 then
      if the castNum of sprite (g_dico_sprite_mot + num) <> (g_dico_cast_mot_hi + num) then
        set the castNum of sprite (g_dico_sprite_mot + num) to g_dico_cast_mot_hi + num
        set the visible of sprite (g_dico_sprite_mot + num) to 0
        updateStage()
        set the visible of sprite (g_dico_sprite_mot + num) to 1
        updateStage()
      end if
    else
      if the castNum of sprite (g_dico_sprite_mot + num) <> (g_dico_cast_mot_lo + num) then
        set the castNum of sprite (g_dico_sprite_mot + num) to g_dico_cast_mot_lo + num
        set the visible of sprite (g_dico_sprite_mot + num) to 0
        updateStage()
        set the visible of sprite (g_dico_sprite_mot + num) to 1
        updateStage()
      end if
    end if
  end if
end

on unpuppet
  repeat with i = 1 to 48
    puppetSprite(i, 0)
  end repeat
end

on OwnPlay destination
  global gOwnPlayList
  if voidp(gOwnPlayList) then
    set gOwnPlayList to []
  end if
  repeat with i = 1 to count(gOwnPlayList)
    if getAt(getAt(gOwnPlayList, i), 1) = (the pathName & the movie) then
      deleteAt(gOwnPlayList, i)
    end if
  end repeat
  add(gOwnPlayList, [the pathName & the movie, the frame])
  put "play ---> ", gOwnPlayList
  go(1, destination)
end

on OwnPlayDone
  global gOwnPlayList
  put "done ---> ", gOwnPlayList
  set length to count(gOwnPlayList)
  if length = 0 then
    beep()
    exit
  end if
  go(getAt(getAt(gOwnPlayList, length), 2), getAt(getAt(gOwnPlayList, length), 1))
  deleteAt(gOwnPlayList, length)
end